home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 November & December / rerun-1990-11-12.d64 / text fx window (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  233b  |  7 lines
  1. 5 poke 53281,2:poke 53280,2:poke 646,1
  2. 6 fort=1to400:print".";:next
  3. 10 if a=0 then a=1:load "text fx",8,1:rem load text fx
  4. 20 sa=49152:rem starting address of text fx
  5. 30 sys sa,10,10,20,20:rem set up the fade
  6. 40 sys sa+3:if peek(2)=0 then 40:rem loop for windowfade
  7.